home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g07.bas < prev    next >
BASIC Source File  |  1991-10-18  |  387b  |  16 lines
  1. 100 ' G07 T.WAKAMATSU 
  2. 110 PI=3.14159!:K=40:A=55:B=55:CLS
  3. 120 FOR L=1 TO 4
  4. 130   K=40:READ C,Z
  5. 140   FOR T=0 TO 2*PI STEP PI/88
  6. 150     K=K+.2!
  7. 160     IF T>=PI THEN C=Z
  8. 170     X=150*SIN(A*T)+320
  9. 180     Y=150*COS(B*T)+240
  10. 190     LINE (X-K,Y-K)-(X+K,Y+K),PSET,%C,B
  11. 200   FOR D=1 TO 20:NEXT D
  12. 210   NEXT T
  13. 220   FOR D=1 TO 2000:NEXT D
  14. 230 NEXT L
  15. 240 DATA 3,2,4,1,2,6,0,0
  16.